home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / telecomm / bbs / wwbbs26.lha / WWBBSDoors / cybmods.lha / bbslist.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1993-12-17  |  1.9 KB  |  89 lines
  1. /* Cyberlink BBS Lister v1.0 By Instigist (c)1994 */
  2.  
  3. options results
  4. menuagain:
  5. cls
  6. print ""
  7. print " Cyberlink BBS Lister v1.0"
  8. print "   Written By Instigist,"
  9. print " Snake Pit: (310)863-3754!"
  10. print " "
  11. print "A - Add A BBS To The List"
  12. print "L - View List of BBS"
  13. print "Q - Quit To Main Menu"
  14. print " "
  15.  
  16. prompt 1 'NORMAL' 'Command : '
  17. ans = result
  18. if ans = '###PANIC' then call death
  19. if ans = 'a' | ans = 'A' then call writebbs
  20. if ans = 'l' | ans = 'L' then call readbbs
  21. if ans = 'q' | ans = 'Q' then call death
  22. call menuagain
  23.  
  24. death:
  25. shutdown
  26. exit
  27.  
  28. syntax:
  29. print "ERROR! Please Inform Sysop!"
  30. shutdown
  31. exit
  32.  
  33. readbbs:
  34. print "           Cyberlink BBS Lister v1.0"
  35. i = 0
  36. open(file1,'doors:bbslist','R')
  37. do until eof(file1)
  38. if i = 4 then call pauseit
  39. message1 = readln(file1)
  40. message2 = readln(file1)
  41. message3 = readln(file1)
  42. print "--------------------------------------------"
  43. print message1
  44. print message2
  45. print message3
  46. i = i + 1
  47. end
  48. itsdone:
  49. close(file1)
  50. print " "
  51. print "   Press Any Key To Continue"
  52. getchar
  53. return
  54.  
  55. pauseit:
  56. i = 0
  57. prompt 1 'YESNO' 'More (Y/n)? '
  58. ans = result
  59. if ans = 'n' | ans = 'N' then call itsdone
  60. return
  61.  
  62. writebbs:
  63. print " "
  64. prompt 40 'NORMAL' 'BBS Name :'
  65. bbsname = result
  66. if bbsname = '###PANIC' then call death
  67. if bbsname = '' then call menuagain
  68. if bbsname = ' ' then call menuagain
  69. prompt 17 'NORMAL' 'Phone #  :'
  70. bbsnumber = result
  71. if bbsnumber = '###PANIC' then call death
  72. if bbsnumber = '' then call menuagain
  73. if bbsnumber = ' ' then call menuagain
  74. print "You May Now Enter A 70 Character Comment About "bbsname
  75. prompt 70 'NORMAL' ':'
  76. bbscomment = result
  77. if bbscomment = '###PANIC' then call death
  78. if bbscomment = '' then call menuagain
  79. if bbscomment = ' ' then call menuagain
  80. open(file1,'doors:bbslist','A')
  81. writeln(file1,bbsname)
  82. writeln(file1,bbsnumber)
  83. writeln(file1,bbscomment)
  84. close(file1)
  85. print " "
  86. print "Thanks For You Support!"
  87. return
  88.  
  89.